Reverse Code Engineering RCE CD +sandman 2000/ReverseCodeEngineeringRceCdsandman2000.iso/RCE/Library/Manuels & Misc/Assembly/AOA.ZIP/CH11/EX11_1.ASM

Assembly Source File | 1996-02-13 | 4.5 KB | 314 lines

    ifndef    ??version
?debug    macro
    endm
publicdll macro    name
    public    name
    endm
$comm    macro    name,dist,size,count
    comm    dist name:BYTE:count*size
    endm
    else
$comm    macro    name,dist,size,count
    comm    dist name[size]:BYTE:count
    endm
    endif
    ?debug    V 300h
    ?debug    S "ex11_1.cpp"
    ?debug    C E95B414D200A657831315F312E637070
_TEXT    segment byte public 'CODE'
_TEXT    ends
DGROUP    group    _DATA,_BSS
    assume    cs:_TEXT,ds:DGROUP
_DATA    segment word public 'DATA'
d@    label    byte
d@w    label    word
_DATA    ends
_BSS    segment word public 'BSS'
b@    label    byte
b@w    label    word
_BSS    ends
_TEXT    segment byte public 'CODE'
   ;
   ;    int main()
   ;
    assume    cs:_TEXT
_main    proc    near
    push    bp
    mov    bp,sp
    sub    sp,4012
    push    si
    push    di
   ;
   ;    {
   ;        unsigned     SaveScr[25][80];
   ;
   ;        int         dx,
   ;                    x,
   ;                    dy,
   ;                    y;
   ;
   ;        long        i;
   ;
   ;        unsigned    savex,
   ;                    savey;
   ;
   ;
   ;
   ;        GetXY(savex, savey);
   ;
    push    ss
    lea    ax,word ptr [bp-12]
    push    ax
    push    ss
    lea    ax,word ptr [bp-10]
    push    ax
    call    near ptr _GetXY
    add    sp,8
   ;
   ;        Capture(SaveScr);
   ;
    push    ss
    lea    ax,word ptr [bp-4012]
    push    ax
    call    near ptr _Capture
    pop    cx
    pop    cx
   ;
   ;        ClrScrn();
   ;
    call    near ptr _ClrScrn
   ;
   ;
   ;        GotoXY(24,0);
   ;
    xor    ax,ax
    push    ax
    mov    ax,24
    push    ax
    call    near ptr _GotoXY
    pop    cx
    pop    cx
   ;
   ;        PutStr("Press any key to quit");
   ;
    push    ds
    mov    ax,offset DGROUP:s@
    push    ax
    call    near ptr _PutStr
    pop    cx
    pop    cx
   ;
   ;
   ;        dx = 1;
   ;
    mov    word ptr [bp-2],1
   ;
   ;        dy = 1;
   ;
    mov    word ptr [bp-4],1
   ;
   ;        x = 1;
   ;
    mov    si,1
   ;
   ;        y = 1;
   ;
    mov    di,1
    jmp    @1@422
@1@58:
   ;
   ;        while (!tstKbd())
   ;        {
   ;
   ;        GotoXY(y, x);
   ;
    push    si
    push    di
    call    near ptr _GotoXY
    pop    cx
    pop    cx
   ;
   ;            PutChar('#');
   ;
    mov    al,35
    push    ax
    call    near ptr _PutChar
    pop    cx
   ;
   ;
   ;            for (i=0; i<500000; ++i);
   ;
    mov    word ptr [bp-6],0
    mov    word ptr [bp-8],0
    jmp    short @1@114
@1@86:
    add    word ptr [bp-8],1
    adc    word ptr [bp-6],0
@1@114:
    cmp    word ptr [bp-6],7
    jl    short @1@86
    jne    short @1@198
    cmp    word ptr [bp-8],-24288
    jb    short @1@86
@1@198:
   ;
   ;
   ;            GotoXY(y, x);
   ;
    push    si
    push    di
    call    near ptr _GotoXY
    pop    cx
    pop    cx
   ;
   ;            PutChar(' ');
   ;
    mov    al,32
    push    ax
    call    near ptr _PutChar
    pop    cx
   ;
   ;
   ;
   ;
   ;        x += dx;
   ;
    add    si,word ptr [bp-2]
   ;
   ;            y += dy;
   ;
    add    di,word ptr [bp-4]
   ;
   ;            if (x >= 79)
   ;
    cmp    si,79
    jl    short @1@254
   ;
   ;        {
   ;                x = 78;
   ;
    mov    si,78
   ;
   ;                dx = -1;
   ;
    mov    word ptr [bp-2],-1
   ;
   ;        }
   ;
    jmp    short @1@310
@1@254:
   ;
   ;            else if (x <= 0)
   ;
    or    si,si
    jg    short @1@310
   ;
   ;        {
   ;                x = 1;
   ;
    mov    si,1
   ;
   ;                dx = 1;
   ;
    mov    word ptr [bp-2],1
@1@310:
   ;
   ;        }
   ;
   ;            if (y >= 24)
   ;
    cmp    di,24
    jl    short @1@366
   ;
   ;        {
   ;                y = 23;
   ;
    mov    di,23
   ;
   ;                dy = -1;
   ;
    mov    word ptr [bp-4],-1
   ;
   ;        }
   ;
    jmp    short @1@422
@1@366:
   ;
   ;            else if (y <= 0)
   ;
    or    di,di
    jg    short @1@422
   ;
   ;        {
   ;                y = 1;
   ;
    mov    di,1
   ;
   ;                dy = 1;
   ;
    mov    word ptr [bp-4],1
@1@422:
    call    near ptr _tstKbd
    or    ax,ax
    jne    @@0
    jmp    @1@58
@@0:
   ;
   ;        }
   ;
   ;
   ;        }
   ;
   ;        PutScr(SaveScr);
   ;
    push    ss
    lea    ax,word ptr [bp-4012]
    push    ax
    call    near ptr _PutScr
    pop    cx
    pop    cx
   ;
   ;        GotoXY(savey, savex);
   ;
    push    word ptr [bp-10]
    push    word ptr [bp-12]
    call    near ptr _GotoXY
    pop    cx
    pop    cx
   ;
   ;        return 0;
   ;
    xor    ax,ax
    jmp    short @1@478
@1@478:
   ;
   ;    }
   ;
    pop    di
    pop    si
    mov    sp,bp
    pop    bp
    ret
_main    endp
    ?debug    C E9
    ?debug    C FA00000000
_TEXT    ends
_DATA    segment word public 'DATA'
s@    label    byte
    db    'Press any key to quit'
    db    0
_DATA    ends
_TEXT    segment byte public 'CODE'
_TEXT    ends
    public    _main
    extrn    _PutStr:near
    extrn    _PutChar:near
    extrn    _PutScr:near
    extrn    _Capture:near
    extrn    _tstKbd:near
    extrn    _ClrScrn:near
    extrn    _GetXY:near
    extrn    _GotoXY:near
_s@    equ    s@
    end